00010	BEGIN
00020	DEFINE CR="'15",LF="'12",CRLF="CR&LF",TB="'11";
00030	
00040	INTEGER I; STRING READ;
00050	PRELOAD_WITH
00060	  CVSIX("ALPHA"),
00070	  CVSIX("BETA"),
00080	  CVSIX("GAMMA"),
00090	  CVSIX("DELTA"),
00100	  CVSIX("DELTN"),
00110	  CVSIX("MARGIN"),
00120	  CVSIX("SUMMIN"),
00130	0,
00140	  CVSIX("Z"),
00150	  CVSIX("Z"),
00160	  CVSIX("Z");
00170	INTEGER ARRAY NAME[0:10];
00180	
00190	PRELOAD_WITH
00200	100,
00210	100,
00220	100,
00230	200,
00240	-200,
00250	50,
00260	200,
00270	0,
00280	0,
00290	0,
00300	0;
00310	INTEGER ARRAY VALUE[0:10];
00320	
00330	OUTSTR("Do you want to change any coefficients (Y or CR) ");
00340	IF INCHWL="Y" THEN BEGIN
00350	
00360	WHILE TRUE DO BEGIN
00370	  FOR I←0 STEP 1 UNTIL 10 DO BEGIN
00375	    IF NAME[I]=0 THEN DONE;
00380	    OUTSTR(CVXSTR(NAME[I])&" ("&CVS(VALUE[I])&") =");
00390	    IF (READ←INCHWL)≠"" THEN VALUE[I]←CVD(READ); END;
00400	  OUTSTR("Final values are:"&crlf);
00410	  FOR I←0 STEP 1 UNTIL 10 DO BEGIN
00415	    IF NAME[I]=0 THEN DONE;
00420	    OUTSTR(CVXSTR(NAME[I])&TB&CVS(VALUE[I])&CRLF);
00425	    END;
00430	  OUTSTR(LF&"O.K. (CR or N) ? ");
00440	  IF INCHWL="" THEN DONE; END;
00450	OUTSTR("All values stored"&CRLF);
00460	END; END;